home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / Anwendun / Pov / POVTOOLS / SCENES / LEVEL2 / CRYSTAL.POV < prev    next >
Encoding:
Text File  |  1995-11-25  |  1.9 KB  |  74 lines
  1. // Persistence Of Vision raytracer version 2.0 sample file.
  2.  
  3. //---------------------------------------------------------------------------
  4. // This scene file was designed to emulate the digitized photographic image
  5. // of a crystal sphere { on a checkerboard that David Buck took, and to
  6. // verify or refute the correctness of the current refractive functions
  7. // in POV-Ray.  The original image is available on CompuServe
  8. // (go comart), Library 17 by the name of crysta.gif.
  9. // Experiment with the index-of-refraction value for the crystal ball.
  10. //---------------------------------------------------------------------------
  11.  
  12. #include "colors.inc"
  13. #include "shapes.inc"
  14. #include "textures.inc"
  15.  
  16. max_trace_level 5
  17.  
  18. camera {
  19.    location <-0.85, 12.5, -28>
  20.    direction <0, 0, 4.125>
  21.    up  <0, 1, 0>
  22.    right <4/3, 0, 0>
  23.    look_at <0.25, 0.15, 0>
  24. }
  25.  
  26. light_source { <-5, 50, -5> colour red 0.85 green 0.85 blue 0.85 }
  27. light_source { <-500, 500, -500> colour DimGray }
  28. // light (under checkerboard, for background
  29. light_source { <10, -50, 5> colour White }
  30.  
  31. // The background.  Designed to give the shaded quality of the photo
  32. sphere { <0, 0, 0>, 1
  33.    scale <10000, 500, 500>
  34.    rotate 60*y
  35.  
  36.    finish {
  37.       ambient 0.2
  38.       diffuse 0.75
  39.       crand 0.025
  40.    }
  41.    pigment { color Gray }
  42. }
  43.  
  44. union {
  45.    object { Cube
  46.       scale <5, 0.001, 7>
  47.  
  48.       pigment {
  49.          checker color Black color White
  50.          translate <1, 0, 7>
  51.       }
  52.       finish {
  53.          ambient 0.35
  54.          diffuse 0.65
  55.          crand 0.015
  56.       }
  57.    }
  58.  
  59.    sphere { <-0.25, 2.15,-4.25>, 2.15
  60.       pigment { White filter 0.75 }
  61.       finish {
  62.          ambient 0.2
  63.          diffuse 0.0
  64.          reflection 0.12
  65.          refraction 1.0
  66.          ior 1.45
  67.          specular 1.0
  68.          roughness 0.001
  69.       }
  70.    }
  71.  
  72.    rotate -6*z       /* Simulate the slight camera tilt in the photo */
  73. }
  74.